Sub Snapshot_outlook()

Dim wb As ThisWorkbook
Set wb = ThisWorkbook
Dim ws As Worksheet
Set ws = wb.Sheets("A")
Dim rng As Range
'Set rng=ws.range ("A1:D14")
Set rng = Selection
Workbooks.Add
Dim ch As Chart
Set ch = Charts.Add 'this will add the chart

ch.Location xlLocationAsObject, "Sheet1"
Set ch = ActiveChart
ActiveChart.Parent.Name = "Amazon"
ActiveSheet.ChartObjects("Amazon").Height = rng.Height
ActiveSheet.ChartObjects("Amazon").Width = rng.Width
rng.CopyPicture xlScreen, xlBitmap
ch.Paste
ch.Export "E:\Varun Kumar\abc.png"

Call email_send

End Sub

Sub email_send()

Dim olook As Outlook.Application
Set olook = New Outlook.Application

Dim omail As Outlook.Mailitem
Set omail = olook.Createitem(olMailitem)

With omail

.CC = "Ela.nema@outlook.com"
.Subject = "Feedback Email"
.htmlbody = "<img src = 'E:\Varun Kumar\abc.png'/img>"
.display

End With

End Sub
